unit receber;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables;

type
  TFreceber = class(TForm)
    DsReceber: TDataSource;
    CReceber: TQuery;
    Receber: TTable;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    ReceberVENCTO: TDateField;
    ReceberCLIENTE: TFloatField;
    ReceberDOCUMENTO: TStringField;
    ReceberVALOR: TFloatField;
    ReceberRECBTO: TDateField;
    ReceberRECBDO: TFloatField;
    ReceberOBS: TStringField;
    CReceberVENCTO: TDateField;
    CReceberCLIENTE: TFloatField;
    CReceberDOCUMENTO: TStringField;
    CReceberVALOR: TFloatField;
    CReceberRECBTO: TDateField;
    CReceberRECBDO: TFloatField;
    CReceberOBS: TStringField;
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Freceber: TFreceber;

implementation

{$R *.dfm}

procedure TFreceber.Button5Click(Sender: TObject);
begin
close;
end;

end.
